1 CLS:FORX=1TO55:READA:A$=A$+CHR$(A):NEXT:SCREEN2,0,0:DATA78,39,97,112,112,117,121,101,122,32,115,117,114,32,97,117,99,117,110,101,32,116,111,117,99,104,101,72,69,32,82,73,71,79,76,79,84,117,32,110,101,32,115,97,105,115,32,112,97,115,32,108,105,114,101
2 LOCATE0,23:PRINTLEFT$(A$,27):COLOR1:ATTRB1,1:LOCATE4,4:PRINT"DEVENEZ FAINEANT":FORX=1TO10000:IFINKEY$<>""THENLOCATE14,15:CONSOLE0,24:PRINTMID$(A$,28,9);"  ";CHR$(33),,RIGHT$(A$,19)ELSECONSOLEINT(RND*10),INT(RND*10)+12:SCREENINT(RND*3),INT(RND*8),0:NEXT